home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / game.dir / 00013_Script_boss manager class < prev    next >
Text File  |  1997-08-08  |  3KB  |  110 lines
  1. -- boss manager
  2. -- -------------------------------------------------- 
  3.  
  4. property ancestor
  5. property animlist
  6. property patternlist
  7. property channels
  8.  
  9. property speed
  10.  
  11. -- ==================================================
  12. global ggame, gplayer, gload
  13.  
  14. -- ==================================================
  15. -- new method
  16. -- --------------------------------------------------
  17. on new me, props
  18.   
  19.   minit me, props
  20.   return me
  21.   
  22. end mnew 
  23.  
  24. -- ==================================================
  25. -- minit method
  26. -- --------------------------------------------------
  27. on minit me
  28.   
  29.   --  put "in minit boss manager"
  30.   
  31.   set ancestor = 0
  32.   
  33.   set numochannels = 10
  34.   set lochannel = 8
  35.   
  36.   set channels = []
  37.   
  38.   repeat with channel = ( lochannel ) to ( lochannel + numochannels - 1)
  39.     add channels, channel
  40.   end repeat
  41.   
  42.   set patternlist = data2list ( "boss pattern data" )
  43.   set datalist = data2list ( "boss anim data" )
  44.   set animlist = [:]
  45.   
  46.   repeat with bossindex = 1 to count ( datalist )
  47.     
  48.     set bossname = getpropat ( datalist, bossindex )
  49.     set bosslist = getat ( datalist, bossindex )
  50.     
  51.     set bossanims = [:]
  52.     
  53.     repeat with index = 1 to count ( bosslist )
  54.       set animcastnum = getat ( bosslist, index )
  55.       set animname = getpropat ( bosslist, index )
  56.       set theanim = data2list (animcastnum )
  57.       setaprop bossanims, animname, theanim
  58.     end repeat
  59.     
  60.     setaprop animlist, bossname, bossanims
  61.     
  62.   end repeat
  63.   
  64.   --  put "out minit boss manager"
  65.   
  66. end minit
  67.  
  68. -- ==================================================
  69. -- mstart method
  70. -- --------------------------------------------------
  71. on mstart me, screenlist
  72.   
  73.   --  put "in mstart boss manager"
  74.   
  75.   set dataname = getat ( checkaprop ( screenlist, #data ) , 1 )
  76.   set health = checkaprop ( screenlist, #health, 0 )
  77.   set animdata = getaprop ( animlist, dataname )
  78.   set patterndata = getaprop ( patternlist, dataname )
  79.   
  80.   set props = [:]
  81.   setaprop props, #drawdata, channels
  82.   setaprop props, #animdata, animdata
  83.   setaprop props, #pattern, patterndata
  84.   setaprop props, #data, dataname
  85.   setaprop props, #health, health
  86.   
  87.   set ancestor = new ( script "boss class" , props )
  88.   
  89.   mload gload, dataname
  90.   mstart ancestor
  91.   
  92.   --  put "out mstart boss manager"
  93.   
  94. end mstart
  95.  
  96. -- ==================================================
  97. -- mreturnthedead method
  98. -- --------------------------------------------------
  99. on mreturnthedead me
  100.   
  101. --  put "in mreturnthedead"
  102.   
  103.   munload gload, the data of me
  104.   mvictory gplayer
  105.   
  106. --  put "out mreturnthedead"
  107.   
  108. end mreturnthedead
  109.  
  110.